1 IF PEEK(103) + PEEK(104) *256 < >2049 THEN POKE 103,1: POKE 104,8: POKE 2048,0: PRINT "<CTRL-D>RUN FLY MENU"
2 N = 64: DIM A(N),B(N),C(N),X(36),Y(36),M(48):B = -16336: SCALE= 1: ROT= 0:D$ = "<CTRL-M>" +"<CTRL-D>": POKE 232,224: POKE 233,84: TEXT : HOME : NORMAL : POKE -16304,0: POKE -16297,0: POKE -16300,0: HGR : PRINT D$;"BLOAD FLY LOGO SCRUNCHED,A$4000": PRINT D$;"BLOAD SCRUNCH": CALL 25003
3 HOME : POKE 21691,21
4 FOR Q = 1 TO N: READ A:A(Q) = A:B(Q) = PEEK(A): NEXT : FOR Q = 1 TO N:C(Q) = PEEK(Q +21561): NEXT :I = 1: FOR Q = 21626 TO 21722 STEP 3:M(I) = PEEK(Q):X(I) = PEEK(Q +1):Y(I) = PEEK(Q +2):I = I +1: NEXT : GOTO 12
6 FOR Q = 1 TO 1:S = PEEK(B): NEXT : RETURN
8 FOR Q = 1 TO 200: NEXT : RETURN
10 FOR Q = 1 TO 10: FOR J = 1 TO 1:S = PEEK(B) + PEEK(B) + PEEK(B): NEXT : FOR Q = 1 TO 39: POKE A(Q),C(Q): NEXT : FOR Q = 1 TO 35: FOR J = 1 TO 1:S = PEEK(B) + PEEK(B) + PEEK(B) + PEEK(B) + PEEK(B): NEXT : FOR J = 1 TO 50: NEXT : NEXT : FOR Q = 1 TO 39: POKE A(Q),B(Q): NEXT :X = 80:Y = 37: RETURN
12 HOME : POKE -16301,0:X = 75:Y = 52: FOR I = 1 TO 36: GOSUB 6:XI = (X(I) -X)/M(I):YI = (Y(I) -Y)/M(I): GOSUB 6: IF X(I) = 31 AND Y(I) = 39 THEN GOSUB 10: NEXT
14 IF Y(I) >150 THEN POKE -16302,0
16 IF X(I) = 0 THEN FOR J = 1 TO 3: GOSUB 6: XDRAW 1 AT X,Y: FOR Q = 1 TO 200: NEXT : XDRAW 1 AT X,Y: XDRAW 2 AT X,Y: FOR Q = 1 TO 500: NEXT : XDRAW 2 AT X,Y: NEXT : NEXT
18 FOR J = 1 TO M(I):X = X +XI:Y = Y +YI: XDRAW 2 AT X,Y: GOSUB 6: XDRAW 2 AT X,Y: XDRAW 1 AT X,Y: IF X(I) = 90 AND Y(I) = 54 THEN 24
20 GOSUB 6: XDRAW 1 AT X,Y: GOSUB 6: XDRAW 2 AT X,Y: GOSUB 6: XDRAW 2 AT X,Y
22 NEXT : NEXT
24 FOR Q = 40 TO N: POKE A(Q),C(Q): NEXT : FOR Q = 1 TO 50:S = PEEK(B) - PEEK(B) - PEEK(B): NEXT : FOR Q = 1 TO 150: NEXT : XDRAW 1 AT X,Y: FOR Q = 40 TO 64: POKE A(Q),B(Q): NEXT
26 FOR J = 1 TO 7: FOR Q = 1 TO INT( RND(1) *55):S = PEEK(B): NEXT : FOR Q = 1 TO INT( RND(1) *55): NEXT : NEXT : FOR Q = 1 TO 1234: NEXT
40 DATA 8711,8712,8714,8715,9607,9608,9610,9611,9736,9738,9739,10631,10632,10634,10635,10759,10760,10762,10763,11658,11783,11784,11786,11787,12810,12811,13703,13704,13706,13707,13834,14727,14728,14729,14731,15751,15752,15754,16384
44 DATA 10127,10128,11151,11152,11153,12175,12176,12177,13070,13198,13199,13200,14094,14095,14096,15116,15117,15118,15119,15120,16141,16142,16143,16144,16384
90 HCOLOR= 0: FOR Y = 143 TO 159: HPLOT 0,Y TO 279,Y: NEXT : PRINT "<CTRL-G>"
100 HOME : VTAB 21: PRINT " D= DOS BOSS DEMO F= REPEAT FLY SHOW T= TEXTTRAIN DEMO Q= QUIT A= ALPHA PLOT DESCRIPTION": PRINT " U= UTILITY CITY DESCRIPTION";
110 VO = V:HO = H:V = V +1: IF V >24 AND H = 1 THEN V = 21:H = 21
115 IF V >22 AND H >1 THEN V = 21:H = 1
120 VTAB V: HTAB H: PRINT "->";: VTAB VO: HTAB HO: PRINT " ";: GOSUB 6: FOR I = 1 TO 200: NEXT : GOSUB 130: GOTO 110
130 K = PEEK( -16384): IF K < >196 AND K < >193 AND K < >212 AND K < >213 AND K < >198 AND K < >209 THEN RETURN
140 POP : POKE -16368,0: HOME : VTAB 21
145 POKE -16301,0: VTAB 24: HTAB 5: PRINT "COPYRIGHT (C) 1981, BERT KERSEY": NORMAL : VTAB 23: HTAB 16: FLASH : PRINT "C": VTAB 1: NORMAL : FOR I = 1 TO 1500: NEXT
149 IF K = 209 THEN VTAB 10: END
150 IF K = 196 THEN PRINT "<CTRL-D>RUN DOS BOSS DEMO"
160 IF K = 193 THEN 2000
170 IF K = 212 THEN PRINT "<CTRL-D>RUN TEXTTRAIN DEMO"
180 IF K = 213 THEN 1000
190 IF K = 198 THEN CALL 25003: HOME : GOTO 12
1000 TEXT : HOME : INVERSE : PRINT " UTILITY CITY ";: NORMAL : PRINT " 21 PROGRAMS ($29.50)": PRINT
1010 INVERSE : PRINT " APPLESOFT LIST FORMATTER ": NORMAL : PRINT "A BETTER LISTER! EACH STATEMENT ON A NEWLINE, LOOPS INDENTED, IF-THEN'S CALLED OUT, PRINTER PAGE BREAKS TOO!
1020 INVERSE : PRINT : PRINT " COMMAND ZAP ": NORMAL : PRINT "HIDE FUNCTIONING APPLESOFT COMMANDS OR SECRET REMS IN YOUR PROGRAMS."
1030 INVERSE : PRINT : PRINT " DOUBLE LOADER ": NORMAL : PRINT "RUN ANY APPLESOFT FILE WHILE ANOTHER STAYS IN MEMORY."
1040 INVERSE : PRINT : PRINT " FILENAME ZAP ": NORMAL : PRINT "CREATE INVISIBLE OR TRICK FILE NAMES."
1050 INVERSE : PRINT : PRINT " MORE TOO! ": NORMAL : PRINT "21 UTILITIES TOTAL-- HEX/DEC CONVERTERS,PROGRAM DATER, LINE SEARCH,MULTI-COLUMN CATALOG PRINTER, 65535 NUMBERER..."
1060 INVERSE : VTAB 24: PRINT " GET TIP BOOK #3 ONLY WITH UTILITY CITY";: POKE 2039, ASC(".")
1999 GOTO 2500
2000 TEXT : HOME : INVERSE : PRINT " ALPHA PLOT ";: NORMAL : PRINT " GRAPHICS UTILITY ($39.50)": PRINT
2010 INVERSE : PRINT " HI-RES DRAWING:": NORMAL : PRINT "* CREATE HI-RES PICTURES & CHARTS; APPENDABLE TO YOUR PROGRAMS.": PRINT "* KEYBOARD OR PADDLE CURSOR CONTROL.": PRINT "* OPTIONAL RUBBER BAND (XDRAW) CURSOR."
2020 PRINT " SEE LINES BEFORE YOU DRAW!": PRINT "* DRAW IN ANY COLOR, MIX OR REVERSE."
2030 PRINT : INVERSE : PRINT " HI-RES TEXT:": NORMAL : PRINT "* UPPER OR LOWER CASE IN ANY COLOR OR REVERSE (OPPOSITE OF BACKGROUND)."
2040 PRINT "* PROFESSIONAL-LOOKING PROPORTIONAL SPACING AND ADJUSTABLE TYPE SIZE."
2050 PRINT "* POSITION TYPE ANYWHERE ON THE SCREEN."
2060 PRINT : INVERSE : PRINT " BONUS GRAPHICS UTILITIES:": NORMAL : PRINT "* COMPRESS HI-RES TO 1/3 DISK SPACE.": PRINT "* SUPERIMPOSE HI-RES IMAGES.": PRINT "* MOVE ANY IMAGE SECTION TO EITHER PAGE.";: PRINT "* CONVERT HI-RES TO LO-RES & BACK!"
2070 VTAB 24: HTAB 1: INVERSE : PRINT " TIP BOOK #4 COMES ONLY WITH ALPHA PLOT";: POKE 2039, ASC(".")
2500 NORMAL : IF PEEK( -16384) <127 THEN 2500
2600 POKE -16368,0: POKE -16304,0: GOTO 100
8999 END
9000 REM FORI=21626TO21722STEP3:PRINTI;":";PEEK(I),PEEK(I+1),PEEK(I+2):NEXT
